Voorbeeld van de instructie If...Then...Else

Dit voorbeeld toont zowel de eenregelige vormen als de blokvormen van de instructies If...Then...Else. Het geeft ook het gebruik van If TypeOf...Then...Else weer.

Dim Number, Digits, MyString
Number = 53    ' Initialize variable.
If Number < 10 Then
    Digits = 1
ElseIf Number < 100 Then
' Condition evaluates to True so the next statement is executed.
    Digits = 2
Else
    Digits = 3
End If
    
' Assign a value using the single-line form of syntax.
If Digits = 1 Then MyString = "EΘn" Else MyString = "Meer dan ΘΘn"

Gebruik de constructie If TypeOf om vast te stellen of het besturingselement dat aan een procedure is doorgegeven, een tekstvak is.

Sub ControlProcessor(MyControl As Control)
    If TypeOf MyControl Is CommandButton Then
        Debug.Print "U gaf door een " & TypeName(MyControl)
    ElseIf TypeOf MyControl Is CheckBox Then
        Debug.Print "U gaf door een " & TypeName(MyControl)
    ElseIf TypeOf MyControl Is TextBox Then
        Debug.Print "U gaf door een " & TypeName(MyControl)
    End If
End Sub